Option Explicit
Sub J_Sample017()
    'wyлPnsWW
    Application.CommandBars("WorkBook Tabs").ShowPopup X:=100, Y:=100
End Sub
